home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / screen.swg / 0031_Turn Screen On-Off.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-08-27  |  1.3 KB  |  48 lines
  1. {
  2. Poon Rojanasoonthon
  3.  
  4. >I use alot of line draws and some text on the screen....the lines come out
  5. >first and then the text a second or two later....is there a way so that the
  6. >whole output comes at once.  I tried Setvisualpage and setactivepage but the
  7. >the whole output screen is off.
  8.  
  9. To Turn On/Off the Screen you may use these procedures
  10. }
  11.  
  12. Procedure ScreenOn;
  13. Begin
  14.   Port[$3C4] := 1;
  15.   Port[$3C5] := $00;
  16. end;
  17.  
  18. Procedure ScreenOff;
  19. Begin
  20.   Port[$3C4] := 1;
  21.   Port[$3C5] := Port[$3C5] or $20;
  22. end;
  23.  
  24. {
  25. >And my last question is.....I am also writing a card game in graphics.  I kn
  26. >the ASCII values for the heart, club, spades and diamonds are thru 3-6.  The
  27. >come out in the TEXT mode but they won't show on the screen in GRAPHICS.  Is
  28. >there a way to display them or not?  Thanks.
  29. To Put text in graphics screen you should turn off the directvideo to off first.
  30.         DirectVideo:=False;
  31. }
  32.  
  33. begin
  34.   Writeln('Turning Screen Off...');
  35.   Readln;
  36.   ScreenOff;
  37.   Writeln('Can you see this??');
  38.   Writeln('Can you see this??');
  39.   Writeln('Can you see this??');
  40.   Writeln('Can you see this??');
  41.   Writeln('Can you see this??');
  42.   Writeln('Can you see this??');
  43.   Writeln('Can you see this??');
  44.   Readln;
  45.   ScreenOn;
  46.   Readln;
  47. end.
  48.